home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ptrp25dm.zip / ETEST7.TRP < prev    next >
Text File  |  1995-01-30  |  388b  |  17 lines

  1. var
  2.         fileCount : integer = 0;
  3. endVar
  4.  
  5. procedure main
  6.         forEachFile('*.pas', "printFileName", false);
  7.         writeln;
  8.         writeln('File Count ', fileCount);
  9. endProc
  10.  
  11. function printFileName(fName : string, attr : byte, 
  12.                 time : longint, size : longint) : boolean;
  13.         writeln(fName);
  14.         inc(fileCount);
  15.         return true;
  16. endProc
  17.